SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TMUSUA_U10]
/*------------------------------------------------------*/  
/*---- Empresa           : OFISIS S.A.              ----*/  
/*---- Cliente           : OFISIS S.A.              ----*/  
/*---- Sistema           : Seguridad                ----*/  
/*---- Módulo            : Seguridad                ----*/  
/*---- Programa          : Cambio Password          ----*/  
/*---- Script            : TMUSUA                   ----*/  
/*---- Nombre SP         : SP_TMUSUA_U10            ----*/  
/*---- Desarrollado por  : Israel Torres Alvarado   ----*/  
/*---- Fecha Creación    : 25/01/2003               ----*/  
/*---- Base de Datos     : SQL                      ----*/  
/*---- Versión           : 7.0                      ----*/  
/*---- Invoca a SP       : SP_PASSWORD              ----*/  
/*------------------------------------------------------*/  
/*------------------------------------------------------*/  
/*---- Modificado 1 por     : Hedda Laguna E.       ----*/  
/*---- Fecha Modificación   : 17/04/2004            ----*/      
/*---- Detalle Modificación : Actualiza la misma    ----*/    
/*---- clave para TMUSUA y Base de datos            ----*/
/*---- (Autenticacion)                              ----*/  
/*------------------------------------------------------*/  
/*------------------------------------------------------*/  
/*---- Modificado 2 por     : Augusto Espinoza      ----*/  
/*---- Fecha Modificación   : 24/04/2009            ----*/      
/*---- Detalle Modificación : El @ISNO_CLAV_ENCR    ----*/    
/*---- se cambio el tipo de TD_VC_008 a TD_VC_020   ----*/
/*------------------------------------------------------*/ 
/*---- Comentarios:                                 ----*/  
/*----                                              ----*/  
/*----                                              ----*/  
/*------------------------------------------------------*/  
/*------------------------------------------------------*/  
/*---- Drop Proc SP_TMUSUA_U10                      ----*/  
/*---- Grant All On SP_TMUSUA_U10 to PUBLIC         ----*/  
/*------------------------------------------------------*/  
@ISCO_USUA_0001  	TD_VC_008,
@ISCO_USUA  	TD_VC_008,
@ISNO_CLAV_ENCR  	TD_VC_020

WITH ENCRYPTION 
As  

Declare

@VNNU_SECU        TD_IN_001

  --- Modifica Clave
  UPDATE TMUSUA
  SET    NO_CLAV      = @ISNO_CLAV_ENCR, 
         FE_MODI_CLAV = Convert( DateTime, Convert( Varchar, GETDATE(), 103 ), 103 ),
         CO_USUA_MODI = @ISCO_USUA_0001, 
         FE_USUA_MODI = GETDATE() 
  WHERE  CO_USUA = @ISCO_USUA  

  If @@error != 0  
   Begin  
     Rollback tran  
     Return  
   End  
  
  Select @VNNU_SECU = IsNull(Max(IsNull(NU_SECU,0)),0) + 1
  From   TDUSUA_CLAV
  Where  CO_USUA = @ISCO_USUA 

  INSERT INTO TDUSUA_CLAV ( CO_USUA, NU_SECU, NO_CLAV, CO_USUA_CREA, CO_USUA_MODI)
  VALUES ( @ISCO_USUA, @VNNU_SECU, @ISNO_CLAV_ENCR, @ISCO_USUA_0001, @ISCO_USUA_0001)

  If @@error != 0  
   Begin  
     Rollback tran  
     Return  
   End  
    
 Return  
 /*------------------------------ Fin -------------------------------*/  
GO
